home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE User Button 4.xpl < prev    next >
Text File  |  2001-08-18  |  5KB  |  183 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\User Commands"
  5. "NAME"="User Command #4"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Name"
  9. "TEXT 2"="Status Bar"
  10. "TEXT 3"="Execute"
  11. "TEXT 4"="Icon (inactive)"
  12. "TEXT 5"="Icon (hover)"
  13. "DATA 1"="DO NOT USE! - Enter text manually"
  14. "DATA 2"="DO NOT USE! - Enter text manually"
  15. "DATA 3"="Applications (*.exe)|*.exe"
  16. "DATA 4"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.ico;*.dll;*.exe"
  17. "DATA 5"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.ico;*.dll;*.exe"
  18. "DESCRIPTION 1"="Internet Explorer can be configured to have user defined commands in it's toolbar and inside the "Tools" menu. A detailed description for each setting follows:"
  19. "DESCRIPTION 2"=""Name": the name of the button, can anything you want e.g. "My Cool Button""
  20. "DESCRIPTION 3"=""Status Bar": the text that is displayed inside on the status bar if you select your commnand from the "Tools" menu."
  21. "DESCRIPTION 4"=""Execute": the application that should be launched, e.g. "C:\My Cool Program\Program.exe"
  22. "DESCRIPTION 5"=""Icon (inactive)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is not touching it. If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2". If you do not specify a file, a default icon will be used."
  23. "DESCRIPTION 6"=""Icon (hover)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is over the command (sometimes also called "Hot Icon"). If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2". If you do not specify a file, a default icon will be used."
  24. "DESCRIPTION 7"="Once you have the desired changes, just exit Internet Explorer (if it is already running) and start it again. To remove the button again, simply clear all fields."
  25. "DESCRIPTION 8"="IMPORTANT: The button you define here are visible to ALL users on this computer! This is *NOT* a user specifiy setting!"
  26. "AUTHOR"="TeX HeX of Xteq Systems"
  27. "CONTACTURL"="http://www.xteq.com/"
  28. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  29. "COMMENT 1"="Honda CBR600F - ABANDON ALL HOPE!"
  30. "COMMENT 2"="Found by Zoran Tasin, tashinz@bigfoot.com, reported to http://www.win2000mag.com"
  31.  
  32. 'ACHTUNG!
  33. sGUID="{7E2B0A41-64EE-4850-A567-2E638CC67154}"
  34.  
  35.  
  36.  
  37. sIEPath="HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\"
  38.  
  39. 'MenuText and ButtonText are always the same
  40. sText1="ButtonText" 'STR
  41. sText2="MenuText" 'STR
  42.  
  43. 'MenuStatusBar... 
  44. sStatText="MenuStatusBar"
  45.  
  46. 'Exec... what should be started
  47. sExec="Exec"
  48.  
  49. 'Icon and HotIcon
  50. sIcon="Icon"
  51. sIconHot="HotIcon"
  52.  
  53.  
  54. 'CLSID... always {1FBA04EE-3024-11d2-8F1F-0000F87ABD16}
  55. sCLSID="CLSID" 
  56.  
  57. 'Default Visible.. always YES
  58. sDefVis="Default Visible" 
  59.  
  60.  
  61.  
  62.  
  63. 'will be build later on
  64. sPath=""
  65.  
  66. SUB Plugin_Initialize
  67.  sPath=sIEPath & sGUID & "\"
  68.  
  69.  if RegPathExists(sPath) then
  70.     s=RegReadValue(sPath & sText1) 
  71.     Call SetUIElement(1,s)
  72.  
  73.     s=RegReadValue(sPath & sStatText) 
  74.     Call SetUIElement(2,s)
  75.  
  76.     s=RegReadValue(sPath & sExec) 
  77.     Call SetUIElement(3,s)
  78.  
  79.     s=RegReadValue(sPath & sIcon) 
  80.     Call SetUIElement(4,s)
  81.  
  82.     s=RegReadValue(sPath & sIconHot) 
  83.     Call SetUIElement(5,s)
  84.  end if
  85. END SUB
  86.  
  87. SUB Plugin_CheckData(ElementIndex)
  88. END SUB
  89.  
  90. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  91.  bDoRemove=false
  92.  
  93.  'button name
  94.  s=GetUIElement(1)
  95.  sP=sPath & sText1
  96.  if Len(s)>0 then
  97.     Call RegWriteValue(sP,s,1) 
  98.  else
  99.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  100.     bDoRemove=true
  101.  end if
  102.  
  103.  'menu name
  104.  s=GetUIElement(1)
  105.  sP=sPath & sText2
  106.  if Len(s)>0 then
  107.     Call RegWriteValue(sP,s,1) 
  108.  else
  109.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  110.     bDoRemove=true
  111.  end if
  112.  
  113.  'status text
  114.  s=GetUIElement(2)
  115.  sP=sPath & sStatText
  116.  if Len(s)>0 then
  117.     Call RegWriteValue(sP,s,1) 
  118.  else
  119.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  120.     bDoRemove=true
  121.  end if
  122.  
  123.  'exec
  124.  s=GetUIElement(3)
  125.  sP=sPath & sExec
  126.  if Len(s)>0 then
  127.     Call RegWriteValue(sP,s,1) 
  128.  else
  129.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  130.     bDoRemove=true
  131.  end if
  132.  
  133.  
  134.  'icon
  135.  s=GetUIElement(4)
  136.  sP=sPath & sIcon
  137.  if len(s)=0 and bDoRemove=false then 
  138.     'apply default icon
  139.     s=",4"
  140.     Call SetUIElement(4,s)
  141.  end if
  142.  
  143.  if Len(s)>0 then
  144.     Call RegWriteValue(sP,s,1) 
  145.  else
  146.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  147.     bDoRemove=true
  148.  end if
  149.  
  150.  
  151.  'hot icon
  152.  s=GetUIElement(5)
  153.  sP=sPath & sIconHot
  154.  if len(s)=0 and bDoRemove=false then 
  155.     'apply default icon
  156.     s=",4"
  157.     Call SetUIElement(5,s)
  158.  end if
  159.  
  160.  if Len(s)>0 then
  161.     Call RegWriteValue(sP,s,1) 
  162.  else
  163.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  164.     bDoRemove=true
  165.  end if
  166.  
  167.  
  168.  'do a remove or not???
  169.  if bDoRemove=false then
  170.     Call RegWriteValue(sPath & sCLSID,"{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}",1) 
  171.     Call RegWriteValue(sPath & sDefVis,"Yes",1) 
  172.  else
  173.     if RegValueExists(sPath & sCLSID) then Call RegDeleteValue(sPath & sCLSID)
  174.     if RegValueExists(sPath & sDefVis) then Call RegDeleteValue(sPath & sDefVis)
  175.     if RegPathExists(sPath) then Call RegDeletePath(sPath)
  176.  end if
  177.  
  178. END SUB
  179.  
  180. SUB Plugin_Terminate
  181. END SUB
  182.  
  183.